home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / pascal / scrgo.exe / MHOOKTPW.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-31  |  1.2 KB  |  52 lines
  1.  
  2. {$A+}   { Align data }
  3. {$B-}   { Boolean evaluation }
  4. {$E+}   { 80x87 emulator }
  5. {$F-}   { Force FAR calls }
  6. {$G+}   { 80286 code }
  7. {$I-}   { I/O checking }
  8. {$K-}   { Smart Callbacks }
  9. {$N-}   { 80x87 code }
  10. {$O-}   { Overlays allowed }
  11. {$P-}   { Open parameters }
  12. {$T-}   { Typed pointers }
  13. {$V-}   { String VAR checking }
  14. {$W-}   { Windows stack frame for real mode }
  15. {$X+}   { Extended syntax }
  16.  
  17. {$IFDEF DEBUG}
  18.     {$D+}   { Debug information }
  19.     {$L+}   { Local symbols }
  20.     {$Q+}   { Overflow checking }
  21.     {$R+}   { Range checking }
  22.     {$S+}   { Stack checking }
  23.     {$Y+}   { Symbol reference information }
  24. {$ELSE}
  25.     {$D-}   { Debug information }
  26.     {$L-}   { Local symbols }
  27.     {$Q-}   { Overflow checking }
  28.     {$R-}   { Range checking }
  29.     {$S-}   { Stack checking }
  30.     {$Y-}   { Symbol reference information }
  31. {$ENDIF}
  32.  
  33. {$C Moveable Demandload Discardable} { Code Segment attributes }
  34.  
  35. UNIT MHookTpw;
  36.  
  37. INTERFACE
  38.  
  39. FUNCTION InstallMouseHook : Boolean;
  40. PROCEDURE RemoveMouseHook;
  41.  
  42. IMPLEMENTATION
  43.  
  44. FUNCTION InstallMouseHook : Boolean;
  45.     EXTERNAL 'MAUSHOOK' index 1;
  46. PROCEDURE RemoveMouseHook;
  47.     EXTERNAL 'MAUSHOOK' index 2;
  48.  
  49. END. { MHookTpw }
  50.  
  51.  
  52.